home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / comment.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  965 b   |  55 lines
  1. G4C
  2.  
  3. winbig -1 -1 250 37 "Add Filenote(s)"
  4. varpath "climaster/*/functions.g"
  5.  
  6. xonload
  7. guiopen comment.g
  8.  
  9. xonopen
  10. lvmulti first
  11. gosub functions.g getfile
  12. update comment.g 2 $cm_fname
  13. setgad comment.g 1 on
  14.  
  15. xonclose
  16.     cm_nwname = ""
  17.     update comment.g 1 ""
  18.     lvdir refresh
  19.     guiquit comment.g
  20.  
  21. xonfail
  22. ezreq "Error During Processing." Okay ""
  23. guiclose comment.g
  24.  
  25. box 0 0 250 12 out button
  26.  
  27. xtextin 0 12 250 13 "" cm_nwname "" 512
  28. gadid 1
  29. cli 'filenote $cm_select "$cm_nwname"'
  30. lvmulti off
  31. lvmulti next
  32. if $cm_select > ""
  33.     cm_nwname = ""
  34.     gosub functions.g getfile
  35.     update comment.g 2 $cm_fname
  36.     update comment.g 1 ""
  37.     setgad comment.g 1 on
  38. else
  39.     guiclose comment.g
  40. endif
  41.  
  42. text 10 0 230 12 "" 30 nobox
  43. gadid 2
  44.  
  45. xbutton 0 25 250 12 "Do _All Files"
  46. update comment.g 2 ""
  47. while $cm_select > ""
  48.     cli 'filenote $cm_select "$cm_nwname"'
  49.     lvmulti off
  50.     lvmulti next
  51. endwhile
  52. guiclose comment.g
  53.  
  54. ;--------------------------------------------
  55.